REM   Joy-Tester V1.0
REM written by S.Weber
REM     in 1990
REM
CLS
GOTO Beschr
Pfeilo:         
LOCATE 5,26:PRINT "O"
IF x=4 THEN x=1
LINE (200,20)-(180,40),x
LINE (180,40)-(220,40),x
LINE (220,40)-(200,20),x
GOTO Joyabfrage
Pfeill:
LOCATE 7,22:PRINT "L"
IF x=4 THEN x=1
LINE (180,40)-(180,60),x
LINE (180,40)-(140,50),x
LINE (140,50)-(180,60),x
GOTO Joyabfrage
Pfeilu:
LOCATE 9,26:PRINT "U"
IF x=4 THEN x=1
LINE (180,60)-(220,60),x
LINE (180,60)-(200,80),x
LINE (200,80)-(220,60),x
GOTO Joyabfrage
Pfeilr:
LOCATE 7,29:PRINT "R"
IF x=4 THEN x=1
LINE (220,60)-(220,40),x
LINE (220,60)-(260,50),x
LINE (260,50)-(220,40),x
GOTO Joyabfrage
Joyabfrage:
a=STICK(2)
b=STICK(3)
IF STRIG(3)=-1 THEN BEEP:GOTO Joyabfrage
IF a=-1 THEN x=x+1: GOTO Pfeill
IF a=1 THEN x=x+1: GOTO Pfeilr
IF b=1 THEN x=x+1: GOTO Pfeilu
IF b=-1 THEN x=x+1: GOTO Pfeilo
GOTO Joyabfrage
Beschr:
CLS
PRINT" Joystick-Tester V1.0"
PRINT
PRINT " written by S.Weber in 1990"
PRINT 
PRINT " Dieses Programm erlaubt es Ihnen Ihren Joystick in"
PRINT " Port 2 auf seine Funktionstuechtigkeit zu testen."
PRINT " Bei Druecken des Feuerknopfes ertoent der BEEP-Ton."
PRINT
PRINT " Ich wuensche Ihnen viel Spass !!"
PRINT:PRINT
PRINT "                                   S.Weber"
WHILE INKEY$="": WEND
CLS
LINE (200,20)-(180,40)
LINE (180,40)-(220,40)
LINE (220,40)-(200,20)
LINE (180,40)-(180,60)
LINE (180,40)-(140,50)
LINE (140,50)-(180,60)
LINE (180,60)-(220,60)
LINE (180,60)-(200,80)
LINE (220,60)-(200,80)
LINE (220,60)-(220,40)
LINE (220,60)-(260,50)
LINE (220,40)-(260,50)
GOTO Joyabfrage